600
|
How can I display the currency only for not empty cells

with AxGrid1 do
begin
Columns.Add('Number');
(Columns.Add('Currency') as EXGRIDLib.Column).ComputedField := 'len(%0) ? currency(dbl(%0)) : ''''';
with Items do
begin
AddItem('1.23');
AddItem('2.34');
AddItem('0');
ItemBackColor[AddItem(Nil)] := $8080ff;
AddItem('10000.99');
end;
end
|
599
|
Is there a function to display the number of days between two date including the number of hours

with AxGrid1 do
begin
(Columns.Add('Start') as EXGRIDLib.Column).Width := 32;
Columns.Add('End');
(Columns.Add('Duration') as EXGRIDLib.Column).ComputedField := '((1:=int(0:= (date(%1)-date(%0)))) != 0 ? (=:1 + '' day(s)'') : '''') + (=:1 ? '' '' : '''' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*' +
'24))) != 0 ? =:1 + '' hour(s) '' : '''' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + '' min(s)'' : '''')';
with Items do
begin
h := AddItem('1/11/2001');
CellValue[TObject(h),TObject(1)] := '1/14/2001';
h := AddItem('2/22/2002 12:00:00 PM');
CellValue[TObject(h),TObject(1)] := '3/14/2002 1:00:00 PM';
h := AddItem('3/13/2003');
CellValue[TObject(h),TObject(1)] := '4/11/2003 11:00:00 AM';
end;
end
|
598
|
Is there a function to display the number of days between two date including the number of hours

with AxGrid1 do
begin
Columns.Add('Start');
Columns.Add('End');
(Columns.Add('Duration') as EXGRIDLib.Column).ComputedField := '"D " + int(date(%1)-date(%0)) + " H " + round(24*(date(%1)-date(%0) - floor(date(%1)-date(%0))))';
with Items do
begin
h := AddItem('1/11/2001');
CellValue[TObject(h),TObject(1)] := '1/14/2001 11:00:00 PM';
h := AddItem('2/22/2002 12:00:00 PM');
CellValue[TObject(h),TObject(1)] := '3/14/2002 1:00:00 PM';
h := AddItem('3/13/2003');
CellValue[TObject(h),TObject(1)] := '4/11/2003 11:00:00 AM';
end;
end
|
597
|
How can I display the number of days between two dates

with AxGrid1 do
begin
Columns.Add('Start');
Columns.Add('End');
(Columns.Add('Duration') as EXGRIDLib.Column).ComputedField := '(date(%1)-date(%0)) + '' days''';
with Items do
begin
h := AddItem('1/11/2001');
CellValue[TObject(h),TObject(1)] := '1/14/2001';
h := AddItem('2/22/2002');
CellValue[TObject(h),TObject(1)] := '3/14/2002';
h := AddItem('3/13/2003');
CellValue[TObject(h),TObject(1)] := '4/11/2003';
end;
end
|
596
|
How can I get second part of the date

with AxGrid1 do
begin
Columns.Add('Date');
(Columns.Add('Second') as EXGRIDLib.Column).ComputedField := 'sec(date(%0))';
with Items do
begin
AddItem('1/11/2001 10:10:00 AM');
AddItem('2/22/2002 11:01:22 AM');
AddItem('3/13/2003 12:23:01 PM');
AddItem('4/14/2004 1:11:59 PM');
end;
end
|
595
|
How can I get minute part of the date

with AxGrid1 do
begin
Columns.Add('Date');
(Columns.Add('Minute') as EXGRIDLib.Column).ComputedField := 'min(date(%0))';
with Items do
begin
AddItem('1/11/2001 10:10:00 AM');
AddItem('2/22/2002 11:01:00 AM');
AddItem('3/13/2003 12:23:00 PM');
AddItem('4/14/2004 1:11:00 PM');
end;
end
|
594
|
How can I check the hour part only so I know it was afternoon

with AxGrid1 do
begin
ConditionalFormats.Add('hour(%0)>=12',Nil).Bold := True;
Columns.Add('Date');
(Columns.Add('Hour') as EXGRIDLib.Column).ComputedField := 'hour(%0)';
with Items do
begin
AddItem('1/11/2001 10:00:00 AM');
AddItem('2/22/2002 11:00:00 AM');
AddItem('3/13/2003 12:00:00 PM');
AddItem('4/14/2004 1:00:00 PM');
end;
end
|
593
|
What about a function to get the day in the week, or days since Sunday

with AxGrid1 do
begin
Columns.Add('Date');
(Columns.Add('WeekDay') as EXGRIDLib.Column).ComputedField := 'weekday(%0)';
with Items do
begin
AddItem('1/11/2001 10:00:00 AM');
AddItem('2/22/2002 11:00:00 AM');
AddItem('3/13/2003 12:00:00 PM');
AddItem('4/14/2004 1:00:00 PM');
end;
end
|
592
|
Is there any function to get the day of the year or number of days since January 1st

with AxGrid1 do
begin
Columns.Add('Date');
(Columns.Add('Day since January 1st') as EXGRIDLib.Column).ComputedField := 'yearday(%0)';
with Items do
begin
AddItem('1/11/2001 10:00:00 AM');
AddItem('2/22/2002 11:00:00 AM');
AddItem('3/13/2003 12:00:00 PM');
AddItem('4/14/2004 1:00:00 PM');
end;
end
|
591
|
How can I display only the day of the date

with AxGrid1 do
begin
Columns.Add('Date');
(Columns.Add('Day') as EXGRIDLib.Column).ComputedField := 'day(%0)';
with Items do
begin
AddItem('1/11/2001 10:00:00 AM');
AddItem('2/22/2002 11:00:00 AM');
AddItem('3/13/2003 12:00:00 PM');
AddItem('4/14/2004 1:00:00 PM');
end;
end
|
590
|
How can I display only the month of the date

with AxGrid1 do
begin
Columns.Add('Date');
(Columns.Add('Month') as EXGRIDLib.Column).ComputedField := 'month(%0)';
with Items do
begin
AddItem('1/1/2001 10:00:00 AM');
AddItem('2/2/2002 11:00:00 AM');
AddItem('3/3/2003 12:00:00 PM');
AddItem('4/4/2004 1:00:00 PM');
end;
end
|
589
|
How can I get only the year part from a date expression

with AxGrid1 do
begin
Columns.Add('Date');
(Columns.Add('Year') as EXGRIDLib.Column).ComputedField := 'year(%0)';
with Items do
begin
AddItem('1/1/2001 10:00:00 AM');
AddItem('2/2/2002 11:00:00 AM');
AddItem('3/3/2003 12:00:00 PM');
AddItem('4/4/2004 1:00:00 PM');
end;
end
|
588
|
Can I convert the expression to date

with AxGrid1 do
begin
Columns.Add('Number');
(Columns.Add('Date') as EXGRIDLib.Column).ComputedField := 'date(dbl(%0))';
with Items do
begin
AddItem('-1.98');
AddItem('30000.99');
AddItem('3561.23');
AddItem('1232.34');
end;
end
|
587
|
Can I convert the expression to a number, double or float

with AxGrid1 do
begin
Columns.Add('Number');
(Columns.Add('Number + 2') as EXGRIDLib.Column).ComputedField := 'dbl(%0)+2';
with Items do
begin
AddItem('-1.98');
AddItem('0.99');
AddItem('1.23');
AddItem('2.34');
end;
end
|
586
|
How can I display dates in long format

with AxGrid1 do
begin
Columns.Add('Date');
(Columns.Add('LongFormat') as EXGRIDLib.Column).ComputedField := 'longdate(%0)';
with Items do
begin
AddItem('1/1/2001 10:00:00 AM');
AddItem('2/2/2002 11:00:00 AM');
AddItem('3/3/2003 12:00:00 PM');
AddItem('4/4/2004 1:00:00 PM');
end;
end
|
585
|
How can I display dates in short format

with AxGrid1 do
begin
Columns.Add('Date');
(Columns.Add('ShortFormat') as EXGRIDLib.Column).ComputedField := 'shortdate(%0)';
with Items do
begin
AddItem('1/1/2001 10:00:00 AM');
AddItem('2/2/2002 11:00:00 AM');
AddItem('3/3/2003 12:00:00 PM');
AddItem('4/4/2004 1:00:00 PM');
end;
end
|
584
|
How can I display the time only of a date expression

with AxGrid1 do
begin
Columns.Add('Date');
(Columns.Add('Time') as EXGRIDLib.Column).ComputedField := '''time is:'' + time(date(%0))';
with Items do
begin
AddItem('1/1/2001 10:00:00 AM');
AddItem('2/2/2002 11:00:00 AM');
AddItem('3/3/2003 12:00:00 PM');
AddItem('4/4/2004 1:00:00 PM');
end;
end
|
583
|
Is there any function to display currencies, or money formatted as in the control panel

with AxGrid1 do
begin
Columns.Add('Number');
(Columns.Add('Currency') as EXGRIDLib.Column).ComputedField := 'currency(dbl(%0))';
with Items do
begin
AddItem('1.23');
AddItem('2.34');
AddItem('10000.99');
end;
end
|
582
|
How can I convert the expression to a string so I can look into the date string expression for month's name

with AxGrid1 do
begin
Columns.Add('Number');
(Columns.Add('Str') as EXGRIDLib.Column).ComputedField := 'str(%0) + '' AA''';
with Items do
begin
AddItem('-1.98');
AddItem('0.99');
AddItem('1.23');
AddItem('2.34');
end;
end
|
581
|
Can I display the absolute value or positive part of the number

with AxGrid1 do
begin
Columns.Add('Number');
(Columns.Add('Abs') as EXGRIDLib.Column).ComputedField := 'abs(%0)';
with Items do
begin
AddItem('-1.98');
AddItem('0.99');
AddItem('1.23');
AddItem('2.34');
end;
end
|
580
|
Is there any function to get largest number with no fraction part that is not greater than the value

with AxGrid1 do
begin
Columns.Add('Number');
(Columns.Add('Floor') as EXGRIDLib.Column).ComputedField := 'floor(%0)';
with Items do
begin
AddItem('-1.98');
AddItem('0.99');
AddItem('1.23');
AddItem('2.34');
end;
end
|
579
|
Is there any function to round the values base on the .5 value

with AxGrid1 do
begin
Columns.Add('Number');
(Columns.Add('Round') as EXGRIDLib.Column).ComputedField := 'round(%0)';
with Items do
begin
AddItem('-1.98');
AddItem('0.99');
AddItem('1.23');
AddItem('2.34');
end;
end
|
578
|
How can I get or display the integer part of the cell

with AxGrid1 do
begin
Columns.Add('Number');
(Columns.Add('Int') as EXGRIDLib.Column).ComputedField := 'int(%0)';
with Items do
begin
AddItem('-1.98');
AddItem('0.99');
AddItem('1.23');
AddItem('2.34');
end;
end
|
577
|
How can I display names as proper ( first leter of the word must be in uppercase, and the rest in lowercase )

with AxGrid1 do
begin
(Columns.Add('') as EXGRIDLib.Column).FormatColumn := 'proper(%0)';
with Items do
begin
h := AddItem('root');
InsertItem(h,Nil,'child child');
InsertItem(h,Nil,'child child');
InsertItem(h,Nil,'child child');
ExpandItem[h] := True;
end;
end
|
576
|
Is there any option to display cells in uppercase

with AxGrid1 do
begin
(Columns.Add('') as EXGRIDLib.Column).FormatColumn := 'upper(%0)';
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
InsertItem(h,Nil,'Chld 3');
ExpandItem[h] := True;
end;
end
|
575
|
Is there any option to display cells in lowercase

with AxGrid1 do
begin
(Columns.Add('') as EXGRIDLib.Column).FormatColumn := 'lower(%0)';
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
InsertItem(h,Nil,'Chld 3');
ExpandItem[h] := True;
end;
end
|
574
|
How can I display the column using currency format and enlarge the font for certain values

with AxGrid1 do
begin
with (Columns.Add('Currency') as EXGRIDLib.Column) do
begin
Def[EXGRIDLib.DefColumnEnum.exCellValueFormat] := TObject(1);
FormatColumn := 'len(value) ? ((0:=dbl(value)) < 10 ? ''<fgcolor=808080><font ;7>'' : ''<b>'') + currency(=:0)';
end;
with Items do
begin
AddItem('1.23');
AddItem('2.34');
AddItem('9.94');
AddItem('11.94');
AddItem('1000');
end;
end
|
573
|
How can I highlight only parts of the cells

with AxGrid1 do
begin
with (Columns.Add('') as EXGRIDLib.Column) do
begin
Def[EXGRIDLib.DefColumnEnum.exCellValueFormat] := TObject(1);
FormatColumn := 'value replace ''hil'' with ''<fgcolor=FF0000><b>hil</b></fgcolor>''';
end;
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
InsertItem(h,Nil,'Child 3');
ExpandItem[h] := True;
end;
end
|
572
|
How can I get the number of occurrences of a specified string in the cell

with AxGrid1 do
begin
Columns.Add('');
with (Columns.Add('occurrences') as EXGRIDLib.Column) do
begin
ComputedField := 'lower(%0) count ''o''';
FormatColumn := '''contains '' + value + '' of \''o\'' chars''';
end;
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1 oooof the root');
InsertItem(h,Nil,'Child 2');
InsertItem(h,Nil,'Child 3');
ExpandItem[h] := True;
end;
end
|
571
|
How can I display dates in my format

with AxGrid1 do
begin
with (Columns.Add('Date') as EXGRIDLib.Column) do
begin
Def[EXGRIDLib.DefColumnEnum.exCellValueFormat] := TObject(1);
FormatColumn := '''<b>'' + year(0:=date(value)) + ''</b><fgcolor=808080><font ;6> ('' + month(=:0) + '' - '' + day(=:0) +'')''';
end;
with Items do
begin
AddItem('1/21/2001');
AddItem('2/22/2002');
AddItem('3/13/2003');
AddItem('4/24/2004');
end;
end
|
570
|
How can I display dates in short format

with AxGrid1 do
begin
(Columns.Add('Date') as EXGRIDLib.Column).FormatColumn := 'shortdate(value)';
with Items do
begin
AddItem('1/1/2001');
AddItem('2/2/2002');
AddItem('3/3/2003');
AddItem('4/4/2004');
end;
end
|
569
|
How can I display dates in long format

with AxGrid1 do
begin
(Columns.Add('Date') as EXGRIDLib.Column).FormatColumn := 'longdate(value)';
with Items do
begin
AddItem('1/1/2001');
AddItem('2/2/2002');
AddItem('3/3/2003');
AddItem('4/4/2004');
end;
end
|
568
|
How can I display only the right part of the cell

with AxGrid1 do
begin
Columns.Add('');
with (Columns.Add('Right') as EXGRIDLib.Column) do
begin
ComputedField := '%0 right 2';
FormatColumn := '''"'' + value + ''"''';
end;
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
InsertItem(h,Nil,'SChild 3');
ExpandItem[h] := True;
end;
end
|
567
|
How can I display only the left part of the cell

with AxGrid1 do
begin
Columns.Add('');
(Columns.Add('Left') as EXGRIDLib.Column).ComputedField := '%0 left 2';
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
InsertItem(h,Nil,'SChild 3');
ExpandItem[h] := True;
end;
end
|
566
|
How can I display true or false instead 0 and -1

with AxGrid1 do
begin
(Columns.Add('Boolean') as EXGRIDLib.Column).FormatColumn := 'value != 0 ? ''true'' : ''false''';
with Items do
begin
AddItem(TObject(True));
AddItem(TObject(False));
AddItem(TObject(True));
AddItem(TObject(0));
AddItem(TObject(1));
end;
end
|
565
|
How can I save data on XML format

with AxGrid1 do
begin
LoadXML('http://www.exontrol.net/testing.xml');
SaveXML('c:/temp/exgrid.xml');
end
|
564
|
How can I load data on XML format

with AxGrid1 do
begin
LoadXML('http://www.exontrol.net/testing.xml');
end
|
563
|
I have an EBN file how can I apply different colors to it, so no need to create a new one

with AxGrid1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
SelBackColor := BackColor;
SelForeColor := ForeColor;
HasLines := EXGRIDLib.HierarchyLineEnum.exNoLine;
Columns.Add('Default');
with Items do
begin
h := AddItem('Root');
hC := InsertItem(h,Nil,'Default');
ItemBackColor[hC] := $1000000;
ItemHeight[InsertItem(h,Nil,'')] := 6;
hC := InsertItem(h,Nil,'Light Green');
ItemBackColor[hC] := $100ff00;
ItemHeight[InsertItem(h,Nil,'')] := 6;
hC := InsertItem(h,Nil,'Dark Green');
ItemBackColor[hC] := $1007f00;
ItemHeight[InsertItem(h,Nil,'')] := 6;
hC := InsertItem(h,Nil,'Magenta');
ItemBackColor[hC] := $1ff7fff;
ItemHeight[InsertItem(h,Nil,'')] := 6;
hC := InsertItem(h,Nil,'Yellow');
ItemBackColor[hC] := $17fffff;
ItemHeight[InsertItem(h,Nil,'')] := 6;
ExpandItem[h] := True;
end;
end
|
562
|
How can I change the background color or the visual appearance using ebn for a particular column

with AxGrid1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
with Columns do
begin
Add('Column 1');
(Add('Column 2') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exHeaderBackColor] := TObject(16777216);
(Add('Column 3') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exHeaderBackColor] := TObject(16777471);
Add('Column 4');
end;
end
|
561
|
How can I change the foreground color for a particular column

with AxGrid1 do
begin
with Columns do
begin
Add('Column 1');
(Add('Column 2') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exHeaderForeColor] := TObject(8439039);
Add('Column 3');
end;
end
|
560
|
How can I change the background color for a particular column

with AxGrid1 do
begin
with Columns do
begin
Add('Column 1');
(Add('Column 2') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exHeaderBackColor] := TObject(8439039);
Add('Column 3');
end;
end
|
559
|
Does your control support RightToLeft property for RTL languages or right to left

with AxGrid1 do
begin
BeginUpdate();
ScrollBars := EXGRIDLib.ScrollBarsEnum.exDisableBoth;
LinesAtRoot := EXGRIDLib.LinesAtRootEnum.exLinesAtRoot;
with (Columns.Add('P1') as EXGRIDLib.Column) do
begin
Def[EXGRIDLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
PartialCheck := True;
end;
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
end;
RightToLeft := True;
EndUpdate();
end
|
558
|
Is there any way to display the vertical scroll bar on the left side, as I want to align my data to the right

with AxGrid1 do
begin
BeginUpdate();
ScrollBars := EXGRIDLib.ScrollBarsEnum.exDisableBoth;
with Columns do
begin
Add('C1');
Add('C2');
Add('C3');
Add('C4');
Add('C5');
Add('C6');
Add('C7');
Add('C8');
end;
RightToLeft := True;
EndUpdate();
end
|
557
|
Can I display the cell's check box after the text

with AxGrid1 do
begin
with (Columns.Add('Column') as EXGRIDLib.Column) do
begin
Def[EXGRIDLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
Def[EXGRIDLib.DefColumnEnum.exCellDrawPartsOrder] := 'caption,check';
end;
with Items do
begin
CellHasCheckBox[TObject(AddItem('Caption 1')),TObject(0)] := True;
CellHasCheckBox[TObject(AddItem('Caption 2')),TObject(0)] := True;
end;
end
|
556
|
Can I change the order of the parts in the cell, as checkbox after the text, and so on

with AxGrid1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
(Columns.Add('Column') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exCellDrawPartsOrder] := 'caption,check,icon,icons,picture';
with Items do
begin
h := AddItem('Text');
CellImage[TObject(h),TObject(0)] := 1;
CellHasCheckBox[TObject(h),TObject(0)] := True;
end;
end
|
555
|
Can I have an image displayed after the text. Can I get that effect without using HTML content

with AxGrid1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
(Columns.Add('Column') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exCellDrawPartsOrder] := 'caption,icon,check,icons,picture';
with Items do
begin
h := AddItem('Text');
CellImage[TObject(h),TObject(0)] := 1;
end;
end
|
554
|
How can I display the column's header using multiple lines

with AxGrid1 do
begin
HeaderHeight := 128;
HeaderSingleLine := False;
(Columns.Add('This is just a column that should break the header.') as EXGRIDLib.Column).Width := 32;
Columns.Add('This is just another column that should break the header.');
end
|
553
|
How can include the values in the inner cells in the drop down filter window

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exRowLines;
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
set_Description(EXGRIDLib.DescriptionTypeEnum.exFilterBarBlanks,'');
set_Description(EXGRIDLib.DescriptionTypeEnum.exFilterBarNonBlanks,'');
with (Columns.Add('Single Column') as EXGRIDLib.Column) do
begin
HTMLCaption := 'Single column with <b>inner cells</b>';
ToolTip := 'Click the drop down filter button, and the filter list includes the inner cells values too.';
DisplayFilterButton := True;
DisplayFilterPattern := False;
FilterList := EXGRIDLib.FilterListEnum.exIncludeInnerCells;
end;
ShowFocusRect := False;
with Items do
begin
s := SplitCell[TObject(AddItem('S 1.1')),TObject(0)];
CellValue[Nil,TObject(s)] := 'S 1.2';
CellHAlignment[Nil,TObject(s)] := EXGRIDLib.AlignmentEnum.CenterAlignment;
CellBackColor[Nil,TObject(s)] := $1000000;
CellWidth[Nil,TObject(s)] := 84;
s := SplitCell[TObject(AddItem('S 2.1')),TObject(0)];
CellValue[Nil,TObject(s)] := 'S 2.2';
CellHAlignment[Nil,TObject(s)] := EXGRIDLib.AlignmentEnum.CenterAlignment;
CellWidth[Nil,TObject(s)] := 84;
s := SplitCell[TObject(AddItem('S 3.1')),TObject(0)];
CellValue[Nil,TObject(s)] := 'S 3.2';
CellHAlignment[Nil,TObject(s)] := EXGRIDLib.AlignmentEnum.CenterAlignment;
CellBackColor[Nil,TObject(s)] := $1000000;
CellWidth[Nil,TObject(s)] := 84;
end;
end
|
552
|
How can I sort the value gets listed in the drop down filter window

with AxGrid1 do
begin
LinesAtRoot := EXGRIDLib.LinesAtRootEnum.exLinesAtRoot;
MarkSearchColumn := False;
set_Description(EXGRIDLib.DescriptionTypeEnum.exFilterBarAll,'');
set_Description(EXGRIDLib.DescriptionTypeEnum.exFilterBarBlanks,'');
set_Description(EXGRIDLib.DescriptionTypeEnum.exFilterBarNonBlanks,'');
with (Columns.Add('P1') as EXGRIDLib.Column) do
begin
DisplayFilterButton := True;
DisplayFilterPattern := False;
FilterList := EXGRIDLib.FilterListEnum.exSortItemsDesc;
end;
with (Columns.Add('P2') as EXGRIDLib.Column) do
begin
DisplayFilterButton := True;
DisplayFilterPattern := False;
FilterList := EXGRIDLib.FilterListEnum.exSortItemsAsc;
end;
with Items do
begin
h := AddItem('Z3');
CellValue[TObject(h),TObject(1)] := 'C';
CellValue[TObject(InsertItem(h,Nil,'Z1')),TObject(1)] := 'B';
CellValue[TObject(InsertItem(h,Nil,'Z2')),TObject(1)] := 'A';
ExpandItem[h] := True;
end;
end
|
551
|
How can I align the text/caption on the scroll bar

with AxGrid1 do
begin
set_ScrollPartCaption(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exLowerBackPart,'left');
set_ScrollPartCaptionAlignment(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exLowerBackPart,EXGRIDLib.AlignmentEnum.LeftAlignment);
set_ScrollPartCaption(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exUpperBackPart,'right');
set_ScrollPartCaptionAlignment(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exUpperBackPart,EXGRIDLib.AlignmentEnum.RightAlignment);
ColumnAutoResize := False;
Columns.Add(1);
Columns.Add(2);
Columns.Add(3);
Columns.Add(4);
Columns.Add(5);
Columns.Add(6);
end
|
550
|
How do I select the next row/item

with AxGrid1 do
begin
Columns.Add('Column');
with Items do
begin
AddItem('Item 1');
AddItem('Item 2');
AddItem('Item 3');
SelectItem[NextVisibleItem[FocusItem]] := True;
end;
end
|
549
|
How do I enable resizing ( changing the height ) the items at runtime

with AxGrid1 do
begin
ItemsAllowSizing := EXGRIDLib.ItemsAllowSizingEnum.exResizeItem;
DrawGridLines := EXGRIDLib.GridLinesEnum.exHLines;
ScrollBySingleLine := True;
Columns.Add('Column');
Items.AddItem('Item 1');
with Items do
begin
ItemHeight[AddItem('Item 2')] := 48;
end;
Items.AddItem('Item 3');
Items.AddItem('Item 4');
end
|
548
|
How do I enable resizing all the items at runtime

with AxGrid1 do
begin
ItemsAllowSizing := EXGRIDLib.ItemsAllowSizingEnum.exResizeAllItems;
DrawGridLines := EXGRIDLib.GridLinesEnum.exHLines;
Columns.Add('Column');
Items.AddItem('Item 1');
with Items do
begin
ItemHeight[AddItem('Item 2')] := 48;
end;
Items.AddItem('Item 3');
end
|
547
|
How can I remove the filter
with AxGrid1 do
begin
with (Columns.Add('Column') as EXGRIDLib.Column) do
begin
DisplayFilterButton := True;
FilterType := EXGRIDLib.FilterTypeEnum.exBlanks;
end;
ApplyFilter();
ClearFilter();
end
|
546
|
How can I vertically display the column's caption, in the header

with AxGrid1 do
begin
(Columns.Add('A') as EXGRIDLib.Column).HeaderVertical := True;
(Columns.Add('B') as EXGRIDLib.Column).HeaderVertical := True;
(Columns.Add('H') as EXGRIDLib.Column).HeaderVertical := False;
end
|
545
|
When I have a column in a grid that is set to having a checkbox, and the grid's singlesel is set to false, I am able to toggle the checkboxes for a while, but lose this functionality eventually. Do you have a tip

with AxGrid1 do
begin
(Columns.Add('Check') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
SingleSel := False;
with Items do
begin
AddItem(TObject(True));
AddItem(TObject(False));
AddItem(TObject(False));
end;
end
|
544
|
How do I arrange, format or layout the item on multiple levels or lines, as a subform

with AxGrid1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
DrawGridLines := EXGRIDLib.GridLinesEnum.exRowLines;
HeaderVisible := False;
ItemsAllowSizing := EXGRIDLib.ItemsAllowSizingEnum.exResizeItem;
MarkSearchColumn := False;
ScrollBySingleLine := True;
BackColor := Color.FromArgb(255,255,255);
SelBackColor := Color.FromArgb(255,255,255);
(GetOcx() as EXGRIDLib.Grid).SelForeColor := $80000012;
with Columns do
begin
Add('');
var_Column := (Add('Column') as EXGRIDLib.Column);
with var_Column do
begin
Visible := False;
Editor.EditType := EXGRIDLib.EditTypeEnum.EditType;
end;
var_Column1 := (Add('Column') as EXGRIDLib.Column);
with var_Column1 do
begin
Visible := False;
Editor.EditType := EXGRIDLib.EditTypeEnum.DropDownType;
end;
var_Column2 := (Add('Column') as EXGRIDLib.Column);
with var_Column2 do
begin
Visible := False;
Editor.EditType := EXGRIDLib.EditTypeEnum.DropDownType;
end;
var_Column3 := (Add('Column') as EXGRIDLib.Column);
with var_Column3 do
begin
Visible := False;
with Editor do
begin
EditType := EXGRIDLib.EditTypeEnum.CheckValueType;
Option[EXGRIDLib.EditorOptionEnum.exCheckValue2] := TObject(1);
end;
end;
var_Column4 := (Add('Column') as EXGRIDLib.Column);
with var_Column4 do
begin
Visible := False;
Editor.EditType := EXGRIDLib.EditTypeEnum.DateType;
end;
(Add('Column') as EXGRIDLib.Column).Visible := False;
var_Column5 := (Add('Column') as EXGRIDLib.Column);
with var_Column5 do
begin
Visible := False;
Editor.EditType := EXGRIDLib.EditTypeEnum.DropDownType;
end;
var_Column6 := (Add('Column') as EXGRIDLib.Column);
with var_Column6 do
begin
Visible := False;
Def[EXGRIDLib.DefColumnEnum.exCellSingleLine] := TObject(0);
var_Editor := Editor;
with var_Editor do
begin
EditType := EXGRIDLib.EditTypeEnum.MemoType;
ButtonWidth := 17;
Option[EXGRIDLib.EditorOptionEnum.exDownArrow] := TObject(0);
Option[EXGRIDLib.EditorOptionEnum.exEndKey] := TObject(0);
Option[EXGRIDLib.EditorOptionEnum.exHomeKey] := TObject(0);
Option[EXGRIDLib.EditorOptionEnum.exLeftArrow] := TObject(0);
Option[EXGRIDLib.EditorOptionEnum.exMemoAutoSize] := TObject(0);
Option[EXGRIDLib.EditorOptionEnum.exMemoVScrollBar] := TObject(-1);
Option[EXGRIDLib.EditorOptionEnum.exPageDownKey] := TObject(0);
Option[EXGRIDLib.EditorOptionEnum.exPageUpKey] := TObject(0);
Option[EXGRIDLib.EditorOptionEnum.exRightArrow] := TObject(0);
Option[EXGRIDLib.EditorOptionEnum.exUpArrow] := TObject(0);
end;
Visible := False;
end;
(Add('Column') as EXGRIDLib.Column).Visible := False;
end;
with Items do
begin
h0 := AddItem('');
CellValue[TObject(h0),TObject(9)] := 'Dismiss';
CellFormatLevel[TObject(h0),TObject(0)] := '12;" "[b=0][bg=RGB(248,248,248)]/(" "[b=0][bg=RGB(248,248,248)]:12,(1;" "[b=0]/(" "[b=0]:1,(25;(5;" "[b=0]/(("Subject:"[b=0]:80,' +
'(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,(" "[b=0][bg=RGB(255,0,0)]:5,1[b=0])," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0]' +
'[bg=RGB(0,0,0)]))/1;" "[b=0]))/20;("Location:"[b=0]:80,(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,2[b=0]," "[b=0][bg=' +
'RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]),((" "[b=0]:10,"Label:"[b=0])):50,(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1' +
',3[b=0]," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]))/50;(10;" "[b=0]/(1;" "[b=0][bg=RGB(255,0,0)]/("Recurrence:"[b=0]:' +
'80,"Occurs every day effective 20/04/2007 from 01:00 to 01:01."[b=0])/1;" "[b=0][bg=RGB(255,0,0)])/10;" "[b=0])/23;(4[b=0]:20,"R' +
'eminder:"[b=0]:60,(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,5[b=0]," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,' +
'0)]),((" "[b=0]:5,6[b=0])):30,((" "[b=0]:10,"Show time as:"[b=0])):90,(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,7[b=' +
'0]," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]))/(12;" "[b=0]/(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,8[b' +
'=0]," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]))/35;(5;" "[b=0]/(" "[b=0]," "[b=0],((" "[b=0]:40,9[b=0])))/5;" "[b=0])' +
')," "[b=0]:1)/1;" "[b=0])," "[b=0][bg=RGB(248,248,248)]:12)/12;" "[b=0][bg=RGB(248,248,248)]';
CellHasCheckBox[TObject(h0),TObject(4)] := True;
CellHasButton[TObject(h0),TObject(9)] := True;
CellHAlignment[TObject(h0),TObject(9)] := EXGRIDLib.AlignmentEnum.CenterAlignment;
CellVAlignment[TObject(h0),TObject(8)] := EXGRIDLib.VAlignmentEnum.exTop;
CellForeColor[TObject(h0),TObject(8)] := $0;
CellHasButton[TObject(h0),TObject(6)] := True;
CellValue[TObject(h0),TObject(6)] := '<img>1</img>';
CellValueFormat[TObject(h0),TObject(6)] := EXGRIDLib.ValueFormatEnum.exHTML;
CellHAlignment[TObject(h0),TObject(6)] := EXGRIDLib.AlignmentEnum.CenterAlignment;
ItemHeight[h0] := 296;
end;
end
|
543
|
How do I arrange, format or layout the item on multiple levels or lines

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
MarkSearchColumn := False;
DefaultItemHeight := 34;
(Columns.Add(1) as EXGRIDLib.Column).Visible := False;
(Columns.Add(2) as EXGRIDLib.Column).Visible := False;
(Columns.Add(3) as EXGRIDLib.Column).Visible := False;
(Columns.Add(4) as EXGRIDLib.Column).Visible := False;
(Columns.Add(5) as EXGRIDLib.Column).Visible := False;
Columns.Add('General');
with Items do
begin
DefaultItem := AddItem(TObject(0));
CellValue[TObject(0),TObject(1)] := TObject(1);
CellValue[TObject(0),TObject(2)] := TObject(2);
CellValue[TObject(0),TObject(3)] := TObject(3);
CellValue[TObject(0),TObject(4)] := TObject(4);
CellFormatLevel[TObject(DefaultItem),TObject(5)] := '0,1,2/3,4';
DefaultItem := AddItem(TObject(5));
CellValue[TObject(0),TObject(1)] := TObject(6);
CellValue[TObject(0),TObject(2)] := TObject(7);
CellValue[TObject(0),TObject(3)] := TObject(8);
CellValue[TObject(0),TObject(4)] := TObject(9);
CellFormatLevel[TObject(DefaultItem),TObject(5)] := '3,4/0,1,2';
end;
end
|
542
|
How do I arrange, format or layout the column's header on multiple levels or lines

with AxGrid1 do
begin
(Columns.Add(1) as EXGRIDLib.Column).Visible := False;
(Columns.Add(2) as EXGRIDLib.Column).Visible := False;
(Columns.Add(3) as EXGRIDLib.Column).Visible := False;
(Columns.Add(4) as EXGRIDLib.Column).Visible := False;
(Columns.Add(5) as EXGRIDLib.Column).Visible := False;
HeaderHeight := 32;
(Columns.Add('General') as EXGRIDLib.Column).FormatLevel := '0,1,2/3,4';
end
|
541
|
How do I arrange, format or layout the item on multiple levels or lines

with AxGrid1 do
begin
MarkSearchColumn := False;
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
DefaultItemHeight := 53;
(Columns.Add('EmployeeID') as EXGRIDLib.Column).Visible := False;
(Columns.Add('LastName') as EXGRIDLib.Column).Visible := False;
(Columns.Add('FirstName') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Handler') as EXGRIDLib.Column).Visible := False;
var_Column := (Columns.Add('Title') as EXGRIDLib.Column);
with var_Column do
begin
Visible := False;
DisplayFilterButton := True;
end;
var_Column1 := (Columns.Add('TitleOfCourtesy') as EXGRIDLib.Column);
with var_Column1 do
begin
Visible := False;
DisplayFilterButton := True;
end;
(Columns.Add('BirthDate') as EXGRIDLib.Column).Visible := False;
(Columns.Add('HideDate') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Address') as EXGRIDLib.Column).Visible := False;
(Columns.Add('City') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Region') as EXGRIDLib.Column).Visible := False;
(Columns.Add('PostCode') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Country') as EXGRIDLib.Column).Visible := False;
(Columns.Add('HomePage') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Extension') as EXGRIDLib.Column).Visible := False;
var_Column2 := (Columns.Add('Photo') as EXGRIDLib.Column);
with var_Column2 do
begin
Visible := False;
with Editor do
begin
DropDownVisible := False;
EditType := EXGRIDLib.EditTypeEnum.PictureType;
Option[EXGRIDLib.EditorOptionEnum.exShowPictureType] := TObject(0);
end;
end;
(Columns.Add('Notes') as EXGRIDLib.Column).Visible := False;
(Columns.Add('ReportsTo') as EXGRIDLib.Column).Visible := False;
with (Columns.Add('Personal Info') as EXGRIDLib.Column) do
begin
Def[EXGRIDLib.DefColumnEnum.exCellFormatLevel] := '15:54,(2/1/4)';
FormatLevel := '18;18/(15:54,(2/1/4))';
Width := 196;
end;
with (Columns.Add('General Info') as EXGRIDLib.Column) do
begin
Def[EXGRIDLib.DefColumnEnum.exCellFormatLevel] := '(8/18;5):128,((((13/11/12),(6/7/10)),16))';
FormatLevel := '18;19/((8/18;5):128,((((13/11/12),(6/7/10)),16)))';
Width := 512;
end;
with Items do
begin
h0 := AddItem(TObject(1));
CellValue[TObject(h0),TObject(1)] := 'Davolio';
CellValue[TObject(h0),TObject(2)] := 'Nancy';
CellValue[TObject(h0),TObject(3)] := TObject(0);
CellValue[TObject(h0),TObject(4)] := 'Sales Representative';
CellValue[TObject(h0),TObject(5)] := 'Ms.';
CellValue[TObject(h0),TObject(6)] := '12/8/1948';
CellValue[TObject(h0),TObject(7)] := '5/1/1992';
CellValue[TObject(h0),TObject(8)] := '507-20th Ave. \r\nE.Apt. 2A';
CellValue[TObject(h0),TObject(9)] := 'Seattle';
CellValue[TObject(h0),TObject(10)] := 'WA';
CellValue[TObject(h0),TObject(11)] := '98122';
CellValue[TObject(h0),TObject(12)] := 'USA';
CellValue[TObject(h0),TObject(13)] := '(206) 555-9857';
CellValue[TObject(h0),TObject(14)] := '5467';
CellValue[TObject(h0),TObject(15)] := AxGrid1.ExecuteTemplate('loadpicture(`c:\exontrol\images\sample.bmp`)');
CellValue[TObject(h0),TObject(16)] := 'Education includes a BA in psychology from Colorado State University in 1970. She also completed "The Art of the Cold Call." N' +
'ancy is a member of ToastmastersInternational.';
CellValue[TObject(h0),TObject(17)] := TObject(2);
end;
PutItems(GetItems(TObject(0)),Nil);
with Items do
begin
CellFormatLevel[TObject(FocusItem),'General Info'] := '15,10,4';
CellFormatLevel[TObject(FocusItem),'Personal Info'] := '1/2';
end;
end
|
540
|
How do I arrange, format or layout the data on multiple levels or lines

with AxGrid1 do
begin
MarkSearchColumn := False;
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
DefaultItemHeight := 53;
(Columns.Add('EmployeeID') as EXGRIDLib.Column).Visible := False;
(Columns.Add('LastName') as EXGRIDLib.Column).Visible := False;
(Columns.Add('FirstName') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Handler') as EXGRIDLib.Column).Visible := False;
var_Column := (Columns.Add('Title') as EXGRIDLib.Column);
with var_Column do
begin
Visible := False;
DisplayFilterButton := True;
end;
var_Column1 := (Columns.Add('TitleOfCourtesy') as EXGRIDLib.Column);
with var_Column1 do
begin
Visible := False;
DisplayFilterButton := True;
end;
(Columns.Add('BirthDate') as EXGRIDLib.Column).Visible := False;
(Columns.Add('HideDate') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Address') as EXGRIDLib.Column).Visible := False;
(Columns.Add('City') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Region') as EXGRIDLib.Column).Visible := False;
(Columns.Add('PostCode') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Country') as EXGRIDLib.Column).Visible := False;
(Columns.Add('HomePage') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Extension') as EXGRIDLib.Column).Visible := False;
var_Column2 := (Columns.Add('Photo') as EXGRIDLib.Column);
with var_Column2 do
begin
Visible := False;
with Editor do
begin
DropDownVisible := False;
EditType := EXGRIDLib.EditTypeEnum.PictureType;
Option[EXGRIDLib.EditorOptionEnum.exShowPictureType] := TObject(0);
end;
end;
(Columns.Add('Notes') as EXGRIDLib.Column).Visible := False;
(Columns.Add('ReportsTo') as EXGRIDLib.Column).Visible := False;
with (Columns.Add('Personal Info') as EXGRIDLib.Column) do
begin
Def[EXGRIDLib.DefColumnEnum.exCellFormatLevel] := '15:54,(2/1/4)';
FormatLevel := '18;18/(15:54,(2/1/4))';
Width := 196;
end;
with (Columns.Add('General Info') as EXGRIDLib.Column) do
begin
Def[EXGRIDLib.DefColumnEnum.exCellFormatLevel] := '(8/18;5):128,((((13/11/12),(6/7/10)),16))';
FormatLevel := '18;19/((8/18;5):128,((((13/11/12),(6/7/10)),16)))';
Width := 512;
end;
with Items do
begin
h0 := AddItem(TObject(1));
CellValue[TObject(h0),TObject(1)] := 'Davolio';
CellValue[TObject(h0),TObject(2)] := 'Nancy';
CellValue[TObject(h0),TObject(3)] := TObject(0);
CellValue[TObject(h0),TObject(4)] := 'Sales Representative';
CellValue[TObject(h0),TObject(5)] := 'Ms.';
CellValue[TObject(h0),TObject(6)] := '12/8/1948';
CellValue[TObject(h0),TObject(7)] := '5/1/1992';
CellValue[TObject(h0),TObject(8)] := '507-20th Ave. \r\nE.Apt. 2A';
CellValue[TObject(h0),TObject(9)] := 'Seattle';
CellValue[TObject(h0),TObject(10)] := 'WA';
CellValue[TObject(h0),TObject(11)] := '98122';
CellValue[TObject(h0),TObject(12)] := 'USA';
CellValue[TObject(h0),TObject(13)] := '(206) 555-9857';
CellValue[TObject(h0),TObject(14)] := '5467';
CellValue[TObject(h0),TObject(15)] := AxGrid1.ExecuteTemplate('loadpicture(`c:\exontrol\images\sample.bmp`)');
CellValue[TObject(h0),TObject(16)] := 'Education includes a BA in psychology from Colorado State University in 1970. She also completed "The Art of the Cold Call." N' +
'ancy is a member of ToastmastersInternational.';
CellValue[TObject(h0),TObject(17)] := TObject(2);
end;
PutItems(GetItems(TObject(0)),Nil);
PutItems(GetItems(TObject(0)),Nil);
PutItems(GetItems(TObject(0)),Nil);
end
|
539
|
How do I arrange, format or layout the column's data on multiple levels or lines

with AxGrid1 do
begin
MarkSearchColumn := False;
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
DefaultItemHeight := 68;
(Columns.Add('EmployeeID') as EXGRIDLib.Column).Visible := False;
(Columns.Add('LastName') as EXGRIDLib.Column).Visible := False;
(Columns.Add('FirstName') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Handler') as EXGRIDLib.Column).Visible := False;
var_Column := (Columns.Add('Title') as EXGRIDLib.Column);
with var_Column do
begin
Visible := False;
DisplayFilterButton := True;
end;
var_Column1 := (Columns.Add('TitleOfCourtesy') as EXGRIDLib.Column);
with var_Column1 do
begin
Visible := False;
DisplayFilterButton := True;
end;
(Columns.Add('BirthDate') as EXGRIDLib.Column).Visible := False;
(Columns.Add('HideDate') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Address') as EXGRIDLib.Column).Visible := False;
(Columns.Add('City') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Region') as EXGRIDLib.Column).Visible := False;
(Columns.Add('PostCode') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Country') as EXGRIDLib.Column).Visible := False;
(Columns.Add('HomePage') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Extension') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Photo') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Notes') as EXGRIDLib.Column).Visible := False;
(Columns.Add('ReportsTo') as EXGRIDLib.Column).Visible := False;
with (Columns.Add('Personal Info') as EXGRIDLib.Column) do
begin
Def[EXGRIDLib.DefColumnEnum.exCellFormatLevel] := '18;18/(15:54,(2/1/4))';
FormatLevel := '18;18/(15:54,(2/1/4))';
Width := 196;
end;
with (Columns.Add('General Info') as EXGRIDLib.Column) do
begin
Def[EXGRIDLib.DefColumnEnum.exCellFormatLevel] := '18;19/((8/18;5):128,((((13/11/12),(6/7/10)),16)))';
FormatLevel := '18;19/((8/18;5):128,((((13/11/12),(6/7/10)),16)))';
Width := 512;
end;
Items.AddItem('');
Items.AddItem('');
Items.AddItem('');
Items.AddItem('');
end
|
538
|
How do I arrange, format or layout the column's header on multiple levels or lines

with AxGrid1 do
begin
(Columns.Add('EmployeeID') as EXGRIDLib.Column).Visible := False;
(Columns.Add('LastName') as EXGRIDLib.Column).Visible := False;
(Columns.Add('FirstName') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Handler') as EXGRIDLib.Column).Visible := False;
with (Columns.Add('Title') as EXGRIDLib.Column) do
begin
Visible := False;
DisplayFilterButton := True;
end;
with (Columns.Add('TitleOfCourtesy') as EXGRIDLib.Column) do
begin
Visible := False;
DisplayFilterButton := True;
end;
(Columns.Add('BirthDate') as EXGRIDLib.Column).Visible := False;
(Columns.Add('HideDate') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Address') as EXGRIDLib.Column).Visible := False;
(Columns.Add('City') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Region') as EXGRIDLib.Column).Visible := False;
(Columns.Add('PostCode') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Country') as EXGRIDLib.Column).Visible := False;
(Columns.Add('HomePage') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Extension') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Photo') as EXGRIDLib.Column).Visible := False;
(Columns.Add('Notes') as EXGRIDLib.Column).Visible := False;
(Columns.Add('ReportsTo') as EXGRIDLib.Column).Visible := False;
with (Columns.Add('Personal Info') as EXGRIDLib.Column) do
begin
FormatLevel := '18;18/(15:54,(2/1/4))';
Width := 196;
end;
with (Columns.Add('General Info') as EXGRIDLib.Column) do
begin
FormatLevel := '18;19/((8/18;5):128,((((13/11/12),(6/7/10)),16)))';
Width := 512;
end;
end
|
537
|
How can I select a cells like in excel

with AxGrid1 do
begin
MarkSearchColumn := False;
SingleSel := False;
FullRowSelect := EXGRIDLib.CellSelectEnum.exRectSel;
(Columns.Add('Column1') as EXGRIDLib.Column).Selected := True;
Columns.Add('Column2');
(Columns.Add('Column3') as EXGRIDLib.Column).Selected := True;
with Items do
begin
DefaultItem := AddItem(TObject(0));
CellValue[TObject(0),TObject(1)] := TObject(1);
CellValue[TObject(0),TObject(2)] := TObject(2);
DefaultItem := AddItem(TObject(3));
CellValue[TObject(0),TObject(1)] := TObject(4);
CellValue[TObject(0),TObject(2)] := TObject(5);
DefaultItem := AddItem(TObject(6));
CellValue[TObject(0),TObject(1)] := TObject(7);
CellValue[TObject(0),TObject(2)] := TObject(8);
end;
end
|
536
|
How can I select a multiple column

with AxGrid1 do
begin
MarkSearchColumn := False;
SingleSel := False;
FullRowSelect := EXGRIDLib.CellSelectEnum.exRectSel;
(Columns.Add('Column1') as EXGRIDLib.Column).Selected := True;
Columns.Add('Column2');
(Columns.Add('Column3') as EXGRIDLib.Column).Selected := True;
with Items do
begin
DefaultItem := AddItem(TObject(0));
CellValue[TObject(0),TObject(1)] := TObject(1);
CellValue[TObject(0),TObject(2)] := TObject(2);
DefaultItem := AddItem(TObject(3));
CellValue[TObject(0),TObject(1)] := TObject(4);
CellValue[TObject(0),TObject(2)] := TObject(5);
DefaultItem := AddItem(TObject(6));
CellValue[TObject(0),TObject(1)] := TObject(7);
CellValue[TObject(0),TObject(2)] := TObject(8);
end;
Items.SelectAll();
end
|
535
|
How can I select a column

with AxGrid1 do
begin
MarkSearchColumn := False;
SingleSel := False;
FullRowSelect := EXGRIDLib.CellSelectEnum.exRectSel;
(Columns.Add('Column1') as EXGRIDLib.Column).Selected := True;
Columns.Add('Column2');
with Items do
begin
CellValue[TObject(AddItem('One')),TObject(1)] := 'One';
end;
with Items do
begin
CellValue[TObject(AddItem('Two')),TObject(1)] := 'Two';
end;
Items.SelectAll();
end
|
534
|
How can I collapse all cards

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(64));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Expanded';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
CollapseAllCards();
end;
end
|
533
|
How can I expand all cards

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(64));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Expanded';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
ExpandAllCards();
end;
end
|
532
|
How can I expand or collapse a card

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(64));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Expanded';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
ExpandCard[FocusItem] := True;
end;
end
|
531
|
How can I format or arrange the data being displayed in the card

with AxGrid1 do
begin
HasButtons := EXGRIDLib.ExpandButtonEnum.exNoButtons;
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ItemsAllowSizing := EXGRIDLib.ItemsAllowSizingEnum.exResizeItem;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewTitleFormat,'("Title:",0),1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewWidth,TObject(164));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(18));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
ExpandCard[FocusItem] := True;
end;
end
|
530
|
How can I format or arrange the data being displayed in the card

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ItemsAllowSizing := EXGRIDLib.ItemsAllowSizingEnum.exResizeItem;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'("ABC",2)/(0,3,"DEFGH")/1/0/1/0/1/1,0[bg=RGB(230,230,230)][fg=RGB(255,0,0)');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewTitleFormat,'');
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
ExpandCard[FocusItem] := True;
end;
end
|
529
|
How can I hide the tilte for the cards

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ItemsAllowSizing := EXGRIDLib.ItemsAllowSizingEnum.exResizeItem;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'0/1/0/1/0/1/0/1,0');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewTitleFormat,'');
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
ExpandCard[FocusItem] := True;
end;
end
|
528
|
How can I display resizing lines between cards

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ItemsAllowSizing := EXGRIDLib.ItemsAllowSizingEnum.exResizeItem;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewVResizeLine,TObject(True));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHResizeLine,TObject(True));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewBorderWidth,TObject(8));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewBorderHeight,TObject(8));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
ExpandCard[FocusItem] := True;
end;
end
|
527
|
How can edit the text in the card

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(64));
(Columns.Add('Column 1') as EXGRIDLib.Column).Editor.EditType := EXGRIDLib.EditTypeEnum.EditType;
(Columns.Add('Column 2') as EXGRIDLib.Column).Editor.EditType := EXGRIDLib.EditTypeEnum.EditType;
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
ExpandCard[FocusItem] := True;
end;
end
|
526
|
How can I change the height of the card

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(64));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
ExpandCard[FocusItem] := True;
end;
end
|
525
|
How can I display the cards from top to bottom

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewLeftToRight,TObject(False));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
ExpandCard[FocusItem] := True;
end;
end
|
524
|
How do I change the background color for a specified card

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
ExpandCard[FocusItem] := True;
ItemForeColor[FocusItem] := $ff;
end;
end
|
523
|
How do I change the visual aspect for a specified card

with AxGrid1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
ExpandCard[FocusItem] := True;
ItemBackColor[FocusItem] := $1000000;
end;
end
|
522
|
How do I change the background color for a specified card

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
ExpandCard[FocusItem] := True;
ItemBackColor[FocusItem] := $ff;
end;
end
|
521
|
Is there any way to specify the foreground color for the title of the cards

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewTitleForeColor,TObject(255));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
ExpandCard[FocusItem] := True;
end;
end
|
520
|
Is there any way to specify the foreground color for all cards, including its title

with AxGrid1 do
begin
ForeColor := Color.FromArgb(255,0,0);
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
ExpandCard[FocusItem] := True;
end;
end
|
519
|
How can I change the visual appearance for all cards, including the title

with AxGrid1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn');
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewBackColor,TObject(16777216));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewTitleBackColor,TObject(33554432));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
ExpandCard[FocusItem] := True;
end;
end
|
518
|
Is there any way to specify the background color for all cards, including its title

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewBackColor,TObject(255));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewTitleBackColor,TObject(128));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
ExpandCard[FocusItem] := True;
end;
end
|
517
|
Is there any way to specify the background color for all cards

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewBackColor,TObject(255));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
ExpandCard[FocusItem] := True;
end;
end
|
516
|
How can I specify the distance between cards

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewBorderWidth,TObject(16));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewBorderHeight,TObject(16));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
ExpandCard[FocusItem] := True;
end;
end
|
515
|
How can I resize the cards at runtime

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ItemsAllowSizing := EXGRIDLib.ItemsAllowSizingEnum.exResizeItem;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewVResizeLine,TObject(True));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHResizeLine,TObject(True));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewBorderWidth,TObject(8));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewBorderHeight,TObject(8));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
ExpandCard[FocusItem] := True;
end;
end
|
514
|
How can show the grid lines for my cards

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
end;
end
|
513
|
How can I hide the +/- expanding / collapsing buttons in the cards

with AxGrid1 do
begin
ExpandOnDblClick := False;
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
end;
end
|
512
|
How can I hide the +/- expanding / collapsing buttons in the cards

with AxGrid1 do
begin
HasButtons := EXGRIDLib.ExpandButtonEnum.exNoButtons;
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
end;
end
|
511
|
Is there any way to to specify the number of cards being displayed from letf to right

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewColumns,TObject(3));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
end;
end
|
510
|
Is there any way to to specify the width of the cards, so they fit the control's client area

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewWidth,TObject(0));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewColumns,TObject(2));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
end;
end
|
509
|
Is there any way to to specify the width of the cards, so they fit the control's client area

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewWidth,TObject(0));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
end;
end
|
508
|
Is there any way to to specify the width of the cards

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewWidth,TObject(64));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
end;
end
|
507
|
Is there any way to indent the control's data relative to the borders or the frame of the control

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
HeaderVisible := False;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exBorderWidth,TObject(8));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exBorderHeight,TObject(8));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
end;
end
|
506
|
Is there any way to indent the control's data relative to the borders or the frame of the control

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
ViewMode := EXGRIDLib.ViewModeEnum.exTableView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exTableView,EXGRIDLib.ViewModeOptionEnum.exBorderWidth,TObject(8));
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exTableView,EXGRIDLib.ViewModeOptionEnum.exBorderHeight,TObject(8));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Item 1')),TObject(1)] := 'Item 1.1';
CellValue[TObject(AddItem('Item 2')),TObject(1)] := 'Item 1.2';
CellValue[TObject(AddItem('Item 3')),TObject(1)] := 'Item 1.3';
end;
end
|
505
|
How can I display my rows or items as a table

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
ViewMode := EXGRIDLib.ViewModeEnum.exTableView;
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Item 1')),TObject(1)] := 'Item 1.1';
CellValue[TObject(AddItem('Item 2')),TObject(1)] := 'Item 1.2';
CellValue[TObject(AddItem('Item 3')),TObject(1)] := 'Item 1.3';
end;
end
|
504
|
How can I display my rows as cards

with AxGrid1 do
begin
DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
end;
end
|
503
|
How can I avoid focusing a new cell, when user presses an arrow, page, home or end key, while the editor is opened

with AxGrid1 do
begin
set_DefaultEditorOption(EXGRIDLib.EditorOptionEnum.exLeftArrow,TObject(0));
set_DefaultEditorOption(EXGRIDLib.EditorOptionEnum.exRightArrow,TObject(0));
set_DefaultEditorOption(EXGRIDLib.EditorOptionEnum.exUpArrow,TObject(0));
set_DefaultEditorOption(EXGRIDLib.EditorOptionEnum.exDownArrow,TObject(0));
set_DefaultEditorOption(EXGRIDLib.EditorOptionEnum.exHomeKey,TObject(0));
set_DefaultEditorOption(EXGRIDLib.EditorOptionEnum.exEndKey,TObject(0));
set_DefaultEditorOption(EXGRIDLib.EditorOptionEnum.exPageUpKey,TObject(0));
set_DefaultEditorOption(EXGRIDLib.EditorOptionEnum.exPageDownKey,TObject(0));
(Columns.Add('Edit') as EXGRIDLib.Column).Editor.EditType := EXGRIDLib.EditTypeEnum.EditType;
(Columns.Add('Edit') as EXGRIDLib.Column).Editor.EditType := EXGRIDLib.EditTypeEnum.EditType;
with Items do
begin
CellValue[TObject(AddItem(TObject(0))),TObject(1)] := TObject(1);
end;
with Items do
begin
CellValue[TObject(AddItem(TObject(2))),TObject(1)] := TObject(3);
end;
end
|
502
|
How can I expand predefined items in a drop down list editor as I type

with AxGrid1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
with (Columns.Add('DropDown') as EXGRIDLib.Column) do
begin
Def[EXGRIDLib.DefColumnEnum.exCellValueFormat] := TObject(1);
with Editor do
begin
Option[EXGRIDLib.EditorOptionEnum.exExpandOnSearch] := TObject(True);
EditType := EXGRIDLib.EditTypeEnum.DropDownListType;
DropDownAutoWidth := EXGRIDLib.DropDownWidthType.exDropDownEditorWidth;
AddItem(1,'<b>CObject</b> class',TObject(1));
InsertItem(2,'<b>CCmdTarget</b> class',TObject(2),TObject(1));
InsertItem(3,'<b>CWnd</b> class',TObject(3),TObject(2));
InsertItem(6,'<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>',TObject(1),TObject(1));
AddItem(4,'Exceptions',TObject(1));
InsertItem(7,'<b>System</b> Exceptions',TObject(2),TObject(4));
AddItem(5,'File Services',TObject(2));
end;
end;
with Items do
begin
AddItem(TObject(1));
AddItem(TObject(2));
end;
end
|
501
|
How can I add an extra button to a date picker editor

with AxGrid1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
DefaultItemHeight := 20;
with (Columns.Add('Date') as EXGRIDLib.Column).Editor do
begin
EditType := EXGRIDLib.EditTypeEnum.DateType;
AddButton('B1',TObject(2),TObject(1),'This is a bit of text that''s shown when the cursor hovers the button B1',Nil,Nil);
ButtonWidth := 20;
end;
with Items do
begin
AddItem(TObject(0));
AddItem(TObject(1));
end;
end
|